VBA ŞİFRE silme
'makroyu çalıştırın
'VBA şifresini sileceğiniz çalışma kitabını seçin (o kitap kapalı olmalı)
'şifre değiştirildi mesajı aldıktan sonra şifreli çalışma kitabını açın
'birkaç tane hata mesajı alacaksınız, hepsine tamam deyip geçin
'VBA editorten Project explorer' i açın
'Projenize yeni bir şifre belirleyip kaydedin.
Sub Remove_VBA_Password()
Dim x As Byte
Dim y As Byte
Dim z As Byte
Dim fd As FileDialog
Dim filePath
On Error GoTo Label1
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.InitialView = msoFileDialogViewWebView
.InitialFileName = ThisWorkbook.Path & "\"
.Filters.Clear
.Filters.Add "Excel Files", "*.xls, *.xla"
If .Show = -1 Then filePath = fd.SelectedItems(1)
End With
Set fd = Nothing
DoEvents
Close #1
Open filePath For Random As #1 Len = 1
i = 1
Do Until EOF(1)
Get #1, i, x
If x = 68 Then
Get #1, i + 1, y
If y = 80 Then
Get #1, i + 2, z
If z = 66 Then
Put #1, i + 2, CByte(0)
MsgBox "VBA şifresi değiştirildi.."
Close #1
Exit Sub
End If
End If
End If
i = i + 1
Loop
MsgBox "VBA şifresi bulunamadı.."
Close #1
Exit Sub
Label1:
MsgBox "Şu hata oluştu: " & Err.Description
Close #1
End Sub
