AW: Symbolleisten aus-/einblenden+Blattschutz aus/ein
01.11.2007 13:30:46
Frank
Hm.....irgendwie immer noch nicht. Hab zwar keine Fehlermeldung mehr aber sehe immer noch keine Symbolleiste und Zeilen-Spaltenüberschriften nach der Freigabe.
Hier mal der Code für die Freigabe:
(die ersetzte Zeile hab ich fett und kursiv gemacht)
Sub freigeben()
Dim I As Integer
Dim pw As String
For I = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(I).Activate
ActiveSheet.Unprotect Password:="0"
Next I
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHorizontalScrollBar = True
ActiveWindow.DisplayVerticalScrollBar = True
ActiveWindow.DisplayWorkbookTabs = True
Next I
Application.ScreenUpdating = True
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.CommandBars("Standard").Enabled = True
Application.CommandBars("Formatting").Enabled = True
If Application.CommandBars("Control Toolbox").Visible Then Application.CommandBars(" _
Control Toolbox").Visible = False
Application.CommandBars("Visual Basic").Enabled = True
Application: Sheets("Tabelle1").Activate
End Sub
Hier mal der Code für den Schutz:
Sub schutz()
Dim I As Integer
For I = 1 To ActiveWorkbook.Worksheets.Count
ActiveWorkbook.Worksheets(I).Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="0"
Next I
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Next I
Application.ScreenUpdating = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Control Toolbox").Visible = False
Application.CommandBars("Visual Basic").Visible = False
Application: Sheets("Tabelle1").Activate
End Sub
Ist das so denn richtig?
Ich möchte erreichen, das nur eine Person den Blattschutz aufheben kann und dann sollen die Ansichten wieder alle da sein....(Sprich: Gitternetzlinien, Scrollbalken, Registerkarten, Zeilen-Spaltenüberschriften, Symbolleisten, usw.)
Wenn es dann wieder gesperrt wird, dann soll das alles dann wieder ausgeblendet werden.
Sorry, das ich damit nerve.....
Danke Frank