ich bin ziemlich überfordert mit der Formulierung eines Stücks VBA-Code und ersuche um Eure Hilfe. Ich arbeite zur Verschlüsselung einer Datei mit der Software LockXLS, die ein Runtime-Objekt mit eigenen Methoden zur Verfügung stellt. Was ich nun tun möchte ist, dass die Methode UnlockSaveAs nicht etwa einen im VBA-Modul hart eingegeben Zugangscode, sondern den Wert einer bestimmten Zelle (bspw. A1) erhält. Nur wenn der Wert in A1 mit dem bei der Verschlüsselung angegebenen Zugangscode übereinstimmt, soll entschlüsselt werden. Bislang schaffe ich es zwar den allgemeinen Ablauf mit nachstehendem Code verbunden mit einem Button abzubilden, aber die Übergabe des Zugangscodes aus A1 funktioniert nicht:
Option Explicit
Sub HereinBitte()
Dim oLockXLS As Object
Dim dings As String
dings = Worksheets("Tabelle1").Range("A1").Value
ThisWorkbook.Sheets("Tabelle1").Copy
Set oLockXLS = CreateObject("LockXLSRuntime.Connect")
oLockXLS.UnlockSaveAs (dings) 'gibt man in diesen Klammern den Zugangscode hart und in "" _
an, funktioniert es
Call Workbooks(2).SaveAs(ThisWorkbook.Path & "\NeueDatei.xls")
Call Workbooks(2).Close(False)
oLockXLS.LockSaveAs
Set oLockXLS = Nothing
End Sub
Könnt Ihr mir helfen? Das wäre spitze.Viele Grüße
Daniel