ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[kahramang1]

Merhabalar. Makro içeren bir dosyada bazı hücreleri kilitleyip çalışma sayfasını koru desiğimde makrolar çalışmıyor. Korumalı sayfada Makronun çalışması için ne yapabilirim. Teşekkürler.

[Yken]

Makro içine sayfa korumayı kaldır kodunu eklemeli, işlem sonunda tekrar korumaya almalı.

[kahramang1]

YENİ MODÜLE AŞAĞIDAKİ KODLARI YAPIŞTIRDIM.
Sub Kodlar()
ActiveSheet.Unprotect "Şifre"
For k = 1 To 10
Cells(3, 14).Interior.ColorIndex = 4
basla = Timer
bekle = 1
While Timer < basla + bekle
DoEvents '1 saniye bekle
Wend
Cells(3, 14).Interior.ColorIndex = xlNone
basla = Timer
bekle = 1
While Timer < basla + bekle
DoEvents '2 saniye bekle
Wend
Next k
ActiveSheet.Protect "Şifre"
End Sub
Fakat benim çalışma sayfamda böyle bir hata vardi
Sub aktar()

Application.ScreenUpdating = False


Range("B2:B18").Select
Selection.Copy

If [B1] = "Ocak" Then ay = 1
If [B1] = "Subat" Then ay = 2
If [B1] = "Mart" Then ay = 3
If [B1] = "Nisan" Then ay = 4
If [B1] = "Mayis" Then ay = 5
If [B1] = "Haziran" Then ay = 6
If [B1] = "Temmuz" Then ay = 7
If [B1] = "Agustos" Then ay = 8
If [B1] = "Eylül" Then ay = 9
If [B1] = "Ekim" Then ay = 10
If [B1] = "Kasim" Then ay = 11
If [B1] = "Aralik" Then ay = 12

Sheets(ay + 1).Select
Range("A" & [A65536].End(3).Row + 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range("A1").Select
Sheets("Veri").Select

Range("B2:B18").ClearContents
Range("B2").Select

Application.ScreenUpdating = True

MsgBox "Verileriniz " & [B1] & " ayina kaydedilmistir.", , "BMutlu"

End Sub

Bu durumda ne yapabilirim.

[düşünceli]

Merhabalar. Makro içeren bir dosyada bazı hücreleri kilitleyip çalışma sayfasını koru desiğimde makrolar çalışmıyor. Korumalı sayfada Makronun çalışması için ne yapabilirim. Teşekkürler.

Kod: Tümünü seç

sub ()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
xxx
xxx
ActiveSheet.Unprotect
End Sub