Tabellenblätter mit anderen Schreibschutzoptionen
09.11.2013 11:17:45
mikey20
ich habe hier ein problem mit einigen Tabellenblättern.
Ich würde gerne in der workbook open gleich verschiedene
registerkarten reinschreiben mit unterschiedlichen
Schreibschutzoptionen.
Ich weiß leider nicht ob das möglich ist.
Ich habe ein Tabellenblatt mit Bilder angelegt dort sollte man nichts
auswählen können weder mit der rechten Maustaste noch sonst wie.
Ich habe schon den Makro Recorder benutzt und folgende Werte erhalten
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
End Sub
nur leider weiß ich nicht wie man das ganze beim starten so integriert.
das passwort ist. test
habe mal eine beispielmappe hochgeladen.
https://www.herber.de/bbs/user/88006.xlsm
und hier noch der makro code der in dieser arbeitsmappe eingefügt worden ist.
Option Explicit
Private Sub Workbook_Activate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
Application.DisplayFormulaBar = False
End Sub
Private Sub Workbook_Deactivate()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
Application.DisplayFormulaBar = True
End Sub
Private Sub Workbook_Open()
Dim arr, i As Integer
arr = Array("Rechnungen", "Mahnungen", "Kunden")
Application.ScreenUpdating = False
For i = 0 To UBound(arr)
With Sheets(arr(i))
.Unprotect Password:="test"
.Range("C15").ClearContents
Application.Goto Reference:=.Range("A1"), Scroll:=True
.Protect Password:="test", Userinterfaceonly:=True, DrawingObjects:=True, _
Contents:=True, Scenarios:=True, AllowFiltering:=True
End With
Next i
Worksheets("Rechnungen").ScrollArea = "$A$1:$W$50"
Worksheets("Mahnungen").ScrollArea = "$A$1:$AP$450"
Worksheets("Kunden").ScrollArea = "$A$1:$AQ$450"
Sheets("Rechnungen").Select
End Sub