Kapalı Dosyayı Açıp Korumalı Görünümünü Kaldırıp Tekrar Dosyayı Kapatma

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kodu ChatGPT den aldım. Bir klasörün içinde 150 civarında dosya var. Bunların isimleri Listbox'a listeleniyor bir buton yardımı ile sırası ile tek tek açılıyor ve işlenler yapılıyor. Yalnız Dosyaların çoğu görünüm korumalı bunları işlem yaparken açmıyor ve hata veriyor. Chat GPT den aldığım kodlar ile başka bir buton ile önce korumnalı görünümü kaldırmak istiyorum ama o da kaldırmıyor. Excel sayfasındaki formül çubuğunun altında olan Koyu pembe zemin üstündeki korumalı görünüm dosyaları açmıyor. diğer korumalı görünümlü dosyalarda bir sıkıntı olmuyor. Yardımcı olursanız çok sevinirim. Yoksa dosyaları tek tek açıp korumalı görünümünü kaldırmak zorunda kalıyorum.

Private Sub CommandButton5_Click()
Dim DosyaYolu As String
Dim DosyaAdi As String
Dim DosyaUzantisi As String
Dim FSO As Object
Dim folder As Object
Dim file As Object
Dim folderPath As String

' Klasör yolu
folderPath = Environ("USERPROFILE") & "\Desktop\ÇOKLU İSİM DEĞİŞTİRME"

' Dosya sistemi nesnesi oluştur
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder = FSO.GetFolder(folderPath)

' Klasördeki dosyaları listele
For Each file In folder.Files
DosyaYolu = folderPath & "\" & file.Name
DosyaAdi = file.Name
DosyaUzantisi = LCase(FSO.GetExtensionName(DosyaYolu))

If DosyaUzantisi = "xls" Or DosyaUzantisi = "xlsx" Then
On Error Resume Next
Workbooks.Open DosyaYolu, ReadOnly:=False
If Err.Number <> 0 Then
MsgBox "Dosya açılamadı: " & DosyaAdi & vbCrLf & "Hata: " & Err.Description, vbExclamation
Err.Clear
Else
' Dosya başarıyla açıldıysa işlemleri yap
' İşlemler buraya eklenebilir
ActiveWorkbook.Close SaveChanges:=False
End If
On Error GoTo 0
End If
Next file

MsgBox "Tüm dosyalar başarıyla açıldı ve işlemler tamamlandı!", vbInformation
End Sub

Sub DosyaAcVeIslemYap(DosyaYolu As String)
' Excel dosyasını aç
Workbooks.Open DosyaYolu, ReadOnly:=False
' Gereken işlemleri yap
' ...
' Excel dosyasını kapat
ActiveWorkbook.Close SaveChanges:=False

 

[ahmed_ummu]

Şu korumalı görünüm dosyaları açmıyor. Diğer korumalı görünümlü dosyaları açıyor.