Помогите исправить ошибку...
Мне нужно чтобы форма открывалась при кликании конкретно одной ячейки, а она открывается при кликании по любому месту на странице...
Да, еще лист у меня защищен с разрешенными диапазонами:1)Выделение заблокированных ячеек, 2)выделение не заблокированных ячеек, 3)изменение объектов, 4)изменение сценариев
Форма:
Private Sub Calendar1_Click()
With Application
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ
End With
On Error Resume Next
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd/mmmm/yyyy"
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
--------
На Листе:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B3"), Target) Is Nothing Then
UserForm1.Show
End If
End Sub
----
Модуль:
Sub ShowCalendar()
With Application
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ
End With
On Error Resume Next
UserForm1.Show
End Sub
Мне нужно чтобы форма открывалась при кликании конкретно одной ячейки, а она открывается при кликании по любому месту на странице...
Да, еще лист у меня защищен с разрешенными диапазонами:1)Выделение заблокированных ячеек, 2)выделение не заблокированных ячеек, 3)изменение объектов, 4)изменение сценариев
Форма:
Private Sub Calendar1_Click()
With Application
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ
End With
On Error Resume Next
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd/mmmm/yyyy"
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
--------
На Листе:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B3"), Target) Is Nothing Then
UserForm1.Show
End If
End Sub
----
Модуль:
Sub ShowCalendar()
With Application
.DisplayAlerts = False 'ñèñòåìíûå ïðåäóïðåæäåíèÿ
End With
On Error Resume Next
UserForm1.Show
End Sub