Problem mit Excelmakro und Sharepoint
Emilio
Ich habe ein Problem mit einer Exceldatei (resp. den darin enthaltenen Makros) und unserem Firmen-Sharepoint.
Und zwar folgendes Problem:
Eine Excel-Arbeitsmappe (ziemlich gross, daher kein Upload hier) wird geöffnet. Gleich bei Workbook.Open wird auch eine Userform gestartet welche in verschiedenen Textfeldern Textinhalte ab dieser Excel-Arbeitsmappe anzeigt.
Soweit so gut.
Bei Workbook-Open wird die Excel-Datei als Schreibgeschützt geöffnet.
Nun möchte ich natürlich (mittels Button und Password-Abfrage) den Usern ermöglichen, gleichwohl Änderungen an der Excel-Datei vorzunehmen. (also Schreibschutz aufheben)
Mein Problem nur:
Die Datei ist auf unserem Firmen-Sharepoint abgelegt.
D.h. man öffnet die Datei ab Sharepoint ohne sie auszuchecken.
Das Makro (Workbook-Open) startet also und öffnet die Datei schreibgeschützt. Auch die Userform wird angezeigt (dahinter auch die aktuelle Excel-Datei)
wie also müsste ich den folgenden Code anpassen / ändern, damit bei richtigem Password die aktuell geöffnete Datei ausgecheckt- und der Schreibschutz aufgehoben wird ?
Private Sub CommandButton1_Click()
pw = "test-pass" 'Password
'sofern das eingegebene Kennwort richtig ist, kann der Zustand von Schreibgeschützt auf
'Schreibmodus geändert werden.
If Passwordabfrage_Mutation.Password_Text = pw Then
Passwordabfrage_Mutation.Hide
Schreib_Lesestatus_Ändern 'es wird ins Programm "Schreib_Lesestatus_Ändern verzweigt
MsgBox "Administrationsbereich freigeschaltet !", vbInformation, "ADMINISTRATION"
'wenn eingegebenes Kennwort falsch ist, so wird Passwordabfrage geschlossen
Else: MsgBox "falsches Kennwort !", vbExclamation, "Falsches Kennwort"
Passwordabfrage_Mutation.Password_Text = ""
Exit Sub
End If
End Sub
Sub Schreib_Lesestatus_Ändern()'Umschalten von Schreibgeschützt auf Normal
On Error Resume Next
ActiveWorkbook.ChangeFileAccess Mode:=xlReadWrite, notify:=True 'Schreibschutz wird aufgehoben
On Error GoTo 0
End Sub
Besten Dank für all Eure tips und Ratschläge !