Arbeitsmappenschutz aufheben
04.05.2016 09:07:52
Michael
ich hoffe jemand kann mir helfen. Beim Öffnen meiner Datei kommt immer, dass die Datei mit einem Schreibschutz versehen ist. Das stimmt auch, aber das ist ja auch gewollt. Wie kann ich den Hinweis ausblenden oder den Schreibschutz für die Arbeitsmappe entfernen und wieder anbringen, damit der Hinweis nicht mehr kommt. Der Fehler taucht hier auf :.Range(OkBest).Clear
Hier mein gesamter Code:
Private Sub Workbook_Open()
If Month(Date) > Month(Worksheets(OkBlatt).Range(OkDat)) Then
With Worksheets(OkBlatt)
.Range(OkBest).Clear
.Range(OkDat).Clear
End With
End If
ActiveWorkbook.Worksheets("Schnellstart").Activate
Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Full Screen").Enabled = Not Application.CommandBars("Full Screen"). _
Enabled
Worksheets("Schnellstart").Activate
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
Application.ScreenUpdating = True
End Sub
Michael