Beveiliging van uw excelblad

[nootie]

Hoi,
Ik had een code uitgevoerd die uw werkblad beveiligd met een wachtwoord. Nu wil ik hem opnieuw niet meer beveiligen, maar dat lukt niet meer want hij vraagt telkens een wachtwoord. Terwijl ik nochtans geen wachtwoord geplaatst had.

Het stukje code was:

Sub Insert_Pict()
Dim Pict
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer

ActiveSheet.Protect True, True, True, True, True
ImgFileFormat = "Image Files (*.bmp),others, tif (*.tif),*.tif, jpg (*.jpg),*.jpg"

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
'Note you can load in any nearly file format
If Pict = False Then End

Ans = MsgBox("Open : " & Pict, vbYesNo, "Insert Picture")
If Ans = vbNo Then GoTo GetPict

'Now paste to userselected cell
GetCell:
Set PictCell = Application.InputBox("Select the cell to insert into", Type:=8)
If PictCell.Count > 1 Then MsgBox "Select ONE cell only": GoTo GetCell
PictCell.Select
ActiveSheet.Pictures.Insert(Pict).Select


End Sub

Ik heb al geprobeerd met Activesheet.Unprotect, maar hij blijft een wachtwoord vragen.

Kan er iemand me helpen?

En nog een ander probleem: Hoe kan je een pad opvragen van een excel file (vb c:\users\nootie\excelfile.xlsm)?

 

[Hoornvan]

nootie,

Haal hier een gratis password remoever en je zal zien dat het password zo weg is.
Of bedoel je dit niet?

 

[Hoornvan]

nootie,

Hier een link naar password code
Scrol naar beneden en daar staat de code.

 

[nootie]

Ik heb het al opgelost door mijn sheet te verwijderen, nu is mijn enig probleem nog hoe ik mijn path van mijn exel file kan achterhalen?

Ok de path kan je achterhalen door deze code te gebruiken.

Function MyFullName() As String

    MyFullName = ThisWorkbook.FullName

End Function