Übersicht schützen
09.09.2017 19:09:55
Kai
ich habe eine Übersicht mit Verlinkungen und Erreichbarkeiten in EXCEL erstellt.
Die Übersicht soll nur zur Visualisierung dienen. Es gibt nur zwei Admins, die Daten ändern können. Kann leider keine Beispieldatei zaubern...
Diese Übersicht habe ich mittels folgenden Punkten gesichert (Auszug aus dem Code):
Private Sub Workbook_Open()
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
End With
Application.DisplayFullScreen = True
Application.CommandBars("Ply").Enabled = False
Application.CommandBars("cell").Enabled = False
Private Sub Workbook_NewSheet(ByVal NeuesBlatt As Object)
Application.DisplayAlerts = False
NeuesBlatt.Delete
Application.DisplayAlerts = True
End Sub
-------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
.ScreenUpdating = False
.DisplayAlerts = False
.DisplayFullScreen = False
.DisplayFormulaBar = True
End With
ActiveWorkbook.Close SaveChanges:=False
With Application
.ScreenUpdating = True
.DisplayAlerts = True
End With
Application.DisplayFullScreen = False
Application.Quit
End Sub
--------------------------------------------
Mein Ziel ist es, dass die Datei ohne nervende Schreibgeschützt-Abfragen von meheren Leuten gestartet wird und deshalb im Readonly. Ich muss sie aber noch ändern können.
Den Schreibschutz hebe ich mit dem folgenden Code auf:
Sub SchreibschutzEINAUS()
With ActiveWorkbook
If .ReadOnly = True Then
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, WritePassword:="test"
Else
Worksheets("Admin II").Visible = xlSheetInVisible
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End If
End With
End Sub
Jetzt hatte ich aber letztens das Problem, dass ich die Datei trotzdem nur mit Abfrage Schreibgeschützt öffnen konnte, obwohl ich das mit readonly umgehen wollte (war wohl wie beabsichtigt noch jemand anderes in der Datei).
Ist meine Lösung für die Übersicht zu kompliziert gedacht?
Grüße Kai