Hallo,

habe mal wieder eine neues Problem.

Bei uns nutzen 3 Abteilungen eine Excel-Datei und jeder von denen hat in der Excel eigene Arbeitsblätter.

Diese Arbeitsblätter haben jeweils ihren eigenen Blattschutz. Ich habe eine Inputbox, die für meine Abteilung den Blattschutz in den gewünschten Arbeitsblättern aufhebt. Ich möchte in diese Inputbox eine Auswahl einbauen für die Abteilung Konstruktion, Montage und Elektriker.

Brauche somit hilfe wie man eine Auswahl in die Inputbox einbaut und wie der Quellcode dann z.b. für die Montage ausehen würde.

Habe bisher noch keine If Bedinungen selbstständig geschrieben.

Option Explicit
Public sPwd As String

Sub unprotec_sheet()
    On Error GoTo Nicht_frei
    sPwd = InputBox("Passwort eingeben:", "Blatt entsperren -Konstruktion-")
    If sPwd <> "" Then

        'ActiveSheet.Unprotect Password:=sPwd
         ActiveWorkbook.Sheets("Eingabemaske").Unprotect Password:=sPwd
         ActiveWorkbook.Sheets("Bel. Plan").Unprotect Password:=sPwd
         ActiveWorkbook.Sheets("Düsenprotokoll_01").Unprotect Password:=sPwd
         ActiveWorkbook.Sheets("Düsenprotokoll_02").Unprotect Password:=sPwd
        MsgBox "Blattschutz FREIGEGEBEN!"
        Sheets("Eingabemaske").Select
        Exit Sub
    End If
Nicht_frei:
    MsgBox "Blattschutz NICHT freigegeben!"
End Sub

Sub protect_sheet()
       ActiveWorkbook.Sheets("Eingabemaske").Protect Password:=sPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
       ActiveWorkbook.Sheets("Bel. Plan").Protect Password:=sPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
       ActiveWorkbook.Sheets("Düsenprotokoll_01").Protect Password:=sPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
       ActiveWorkbook.Sheets("Düsenprotokoll_02").Protect Password:=sPwd, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Bin für jede Hilfe dankbar.

Andrej