Hallo zusammen,
kann mir bitte jemand behilflich sein beim einpflegen eines Code?
Ich würde gerne ein mehrfaches öffnen ein und der selben Datei von mehreren Personen verhindern. Den Code dafür hab ich mir auch schon aus dem WWW zusammen geschustert.
If ReadOnly Then
Dim strText As String
strText = " Schon in Benutzung !!!"
MsgBox strText
Call Me.Close(SaveChanges:=False)
End If
ich würde diesen gerne in den schon vorhandenen Code einpflegen.
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="321meins" 'Passwort anpassen
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
ist es denn so richtig oder muss es an eine andere Stelle?
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="321meins" 'Passwort anpassen
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next ws
If ReadOnly Then
Dim strText As String
strText = " Schon in Benutzung !!!"
MsgBox strText
Call Me.Close(SaveChanges:=False)
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
End Sub
Wie kann ich das denn eigentlich testen wenn ich allein bin?
Mit freundlichen Grüßen
energun222