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
|