açılır takvim hata veriyor

[bugüven]

sayfayı koruma altına aldığımda açılır takvim hata veriyor. korumayı kaldırdığımda herhangi bir sorun yok. lütfen yardım.

 

[YUSUF44]

Sayfayı korumaya alırken "sütunları biçimlendir"i işaretlerseniz sorun çıkmaz. Seçim yapıldığında sütun genişliği değişiyor, sayfa koruması ise buna engel oluyor.

 

[vardar07]

Merhaba, , Class modules içindeki kodları aşağıdakinle değiştirip denermisin.

Sub CmdBtnGroup_Click()
    ActiveSheet.Unprotect
    If Month(CDate(CmdBtnGroup.Tag)) <> frmCalendar.CB_Mth.ListIndex + 1 Then
        Select Case _
               MsgBox("The selected date is not in the currently selected month." _
                      & vbNewLine & "Continue?", _
                      vbYesNo Or vbExclamation Or vbDefaultButton1, "Date check")
            Case vbYes
                If g_bForm Then
                    GoTo on_Form
                Else: GoTo addDate
                End If
            Case vbNo
                Exit Sub
        End Select
    Else:
    If g_bForm Then
        GoTo on_Form
    Else: GoTo addDate
    End If
addDate:
    With ActiveCell
        .Value = CDate(CmdBtnGroup.Tag)
        .EntireColumn.AutoFit
    End With
    GoTo chg_month
on_Form:
    g_sDate = CmdBtnGroup.Tag
chg_month:
    With frmCalendar.CB_Mth
        .ListIndex = Month(CmdBtnGroup.Tag) - 1
    End With
     End If
    Unload frmCalendar
 ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
End Sub

 

[bugüven]

teşekkür ederim vardar07 süper çalışıyor ofis 2010 da da çalışır inşallah..

 

[vardar07]

teşekkür ederim vardar07 süper çalışıyor ofis 2010 da da çalışır inşallah..

Merhaba, Bende 2007 var 2010 olmadığı için deneyemem siz deneyip problem olursa bildirirseniz 2010 kullanan arkadaşlar yardımcı olur. Kolay gelsin.