ich hab folgendes Problem. Ich hab ein Excel-Formular, das vielen Leuten in unserer Firma zur Verfügung stehen soll und daher bei uns auf dem Intranet hinterlegt ist. Ich möchte per VBA verhindern, dass das Dokument hier geöffnet werden kann und dann evtl. so abgeändert ins Intranet zurückgespeichert wird. Wenn Makros deaktiviert sind, kann ich es nicht unterbinden, da ist es aber zumindest geschützt und man bekommt ein Tabellenblatt mit dem Hinweis, die Makros zu aktivieren. Ich hab's mir folgendermaßen gedacht, funzt aber nicht so:
Private Sub Workbook_Open()
Dim fname
Application.ScreenUpdating = False
If ThisWorkbook.FullNameURLEncoded Like "*filestore*" Then
MsgBox "Arbeitsmappe bitte erst speichern!"
fname = Application.GetSaveAsFilename(fileFilter:="Microsoft Office Excel-Arbeitsmappe (*.xls), *.xls")
If fname = False Then
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Exit Sub
Else
Application.EnableEvents = False
ThisWorkbook.SaveAs fname
Application.EnableEvents = True
ThisWorkbook.Saved = True
ActiveWorkbook.Close
Exit Sub
End If
End If
End Sub
Vielleicht kann mir ja jemand mit mehr VBA- Erfahrung hier auf die Sprünge helfen.
Vielen Dank schon mal
Michi