AW: Passwortabfrage vor Blattschutz setzen
19.06.2007 14:04:14
Marco
HHmmm, das ist ja das Problem ich kann es immer wieder ausführen.
Kann es an den anderen Makros liegen?
Dieses läuft am Anfang:
Private Sub workbook_open()
' Blattschutz auf allen Tabellen setzen
Sheets("Cover").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt5").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt6").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt7").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt8").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt9").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Blatt10").Select
' MBlatt6 Tabellenblatt Cover starten
Sheets("Cover").Select
Application.ScreenUpdating = False
Range("A1").Select
Und das hier beim zurückkehren zur Titelseite:
(Welches auch ein Problem verursacht, wenn man das Passwort nicht weiß, weil man dann nicht zurü _
ckkommt, aber das ist ein anderes Thema)
Sub Zum_Hauptmenü()
' Zum_Hauptmenü Makro
' Setzt Blattschutz und wechselt ins Hauptmenü
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("A1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Cover").Select
Range("A1").Select
End Sub
Zum Springen in die einzelnen Blätter wird eines der beiden Makros verwendet:
Sub Zu_Blatt1()
'
' Zu Tabelle Blatt1
'
'
Sheets("Blatt1").Select
Range("A1").Select
End Sub
oder:
Sub Zu_Blatt5_ändern()
'
' Zu Tabelle Blatt5
'
'
Sheets("Blatt5").Select
Range("A1").Select
ActiveSheet.Unprotect
End Sub
Vielleicht weiß ja jemand warum ich den Button immer wiedre drücken kann. Bzw. wie ich vor dem betätigen des Buttons eine Passwortabfrage installieren kann. Im Notfall könnte ich auch darauf verzichten, dass der User das Passwort selber setzen kann.
Vielen Dank noch mal!
Grüße
Marco