AW: Öffnen nur mit VBA
30.01.2007 15:53:46
Richy
Kann schon sein, das mein VBA nicht so gut ist......
Allerdings sehe ich in deinem Code nur das er ein paar Tabellen versteckt bevor er öffnet bzw. speichert.
Ich môchte die Datei aber direkt wieder schliessen, bzw gar nicht erst öffnen wenn man Makros deaktivieren wählt. (Habe unten zur Hilfe meinen Code hinzugefügt)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Tabelle3.Visible = xlSheetVisible
Tabelle3.Activate
Tabelle1.Visible = xlSheetVeryHidden
End Sub
Private Sub Workbook_Open()
Tabelle1.Visible = xlSheetVisible
Tabelle1.Activate
Tabelle3.Visible = xlSheetVeryHidden
End Sub
-------------------------
Private Sub workbook_open()
Dim objSh As Worksheet
Dim unam As String
If ThisWorkbook.ReadOnly Then ThisWorkbook.Close False
Application.ScreenUpdating = False
Dim blnFound As Boolean
unam = Environ("Username")
If unam = "richard.kuhn" Or unam = "alexa.theis" Then
For Each objSh In Me.Worksheets
objSh.Visible = xlSheetVisible
Next
Else
For Each objSh In Me.Worksheets
If objSh.Name = unam Then
blnFound = True
Exit For
End If
Next
If blnFound = True Then
objSh.Visible = xlSheetVisible
Else
ThisWorkbook.Close False
End If
Application.ScreenUpdating = True
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = True
End Sub