wisst ihr eine Möglichkeit wie ich eine Exceldatei dazu bringe, dass ohne aktivierte Makros eine Bearbeitung nicht möglich ist?
Mfg
Albert
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim objSh As Object
Dim bolSaved
bolSaved = Me.Saved
Me.Sheets("INFO").Visible = xlSheetVisible
For Each objSh In Me.Sheets
If objSh.Name <> "INFO" Then objSh.Visible = xlSheetVeryHidden
Next
If bolSaved Then Me.Save
End Sub
Private Sub Workbook_Open()
Dim objSh As Object
For Each objSh In Me.Sheets
objSh.Visible = xlSheetVisible
Next
Me.Sheets("INFO").Visible = xlSheetVeryHidden
End Sub