效果：

1.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                         If e.Shape.Name = "Button 1" Then
   
3.                                 '填写符合条件后执行的代码
   
4.                                 Dim W As New C1Window, Childs As New Grid,TB As New TextBlock, PassBox As New PasswordBox, OKButton As New Button
   
5.                                 '内部控件
   
6.                                 TB.Text = "请输入密码："
   
7.                                 TB.Margin = New Thickness(50, 40, 0, 0)
   
8.                                 Childs.Children.Add(TB)'向窗口添加文字控件
   
9.                                 PassBox.Width = 300
   
10.                                 PassBox.Height = 28
    
11.                                 PassBox.VerticalContentAlignment = VerticalAlignment.Center
    
12.                                 PassBox.VerticalAlignment = VerticalAlignment.Top
    
13.                                 PassBox.Margin = New Thickness(0, 60, 0, 0)
    
14.                                 Childs.Children.Add(PassBox)'向窗口添加密码控件
    
15.                                 OKButton.Width = 60
    
16.                                 OKButton.Height = 28
    
17.                                 OKButton.content = "确定"
    
18.                                 OKButton.VerticalAlignment = VerticalAlignment.Bottom
    
19.                                 OKButton.Margin = New Thickness(0, 0, 0, 30)
    
20.                                 AddHandler OKButton.Click, Sub(ss, ee)
    
21.                                         If PassBox.password <>"123" Then
    
22.                                                 C1MessageBox.Show("密码错误！", "提示", OK, C1MessageBoxIcon.Warning)
    
23.                                                 Return
    
24.                                         End If
    
25.                                         '解锁单元格
    
26.                                         ev.GetLock
    
27.                                         ev.ActiveWorksheet.ProtectContents = False
    
28.                                         range("C4").Locked = False
    
29.                                         ev.ActiveWorksheet.ProtectContents = True
    
30.                                         ev.ReleaseLock
    
31.                                         '关闭窗口
    
32.                                         W.Close()
    
33.                                 End Sub
    
34.                                 Childs.Children.Add(OKButton)'向窗口添加按钮控件
    
35.                                 '窗体设置
    
36.                                 W.Style = CType(Application.Current.Resources("C1WindowStyle"), Style)'风格
    
37.                                 W.Height = 200'高
    
38.                                 W.Width = 400'宽
    
39.                                 W.Header = "验证密码"'标题
    
40.                                 W.Content = Childs
    
41.                                 W.ShowMaximizeButton = False'最大化
    
42.                                 W.ShowMinimizeButton = False'最小化
    
43.                                 W.IsResizable = False'调整尺寸
    
44.                                 W.CenterOnScreen()'居中
    
45.                                 W.ShowModal()'显示
    
46.                         End If
    
47.                 End Sub'按钮/标签点击事件

复制代码

效果：

1.                 Public Sub ButtunClick(sender As Object, e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                         If e.Shape.Name = "Button 1" Then
   
3.                                 '填写符合条件后执行的代码
   
4.                                 Dim W As New C1Window, Childs As New Grid,TB As New TextBlock, PassBox As New PasswordBox, OKButton As New Button
   
5.                                 '内部控件
   
6.                                 TB.Text = "请输入密码："
   
7.                                 TB.Margin = New Thickness(50, 40, 0, 0)
   
8.                                 Childs.Children.Add(TB)'向窗口添加文字控件
   
9.                                 PassBox.Width = 300
   
10.                                 PassBox.Height = 28
    
11.                                 PassBox.VerticalContentAlignment = VerticalAlignment.Center
    
12.                                 PassBox.VerticalAlignment = VerticalAlignment.Top
    
13.                                 PassBox.Margin = New Thickness(0, 60, 0, 0)
    
14.                                 Childs.Children.Add(PassBox)'向窗口添加密码控件
    
15.                                 OKButton.Width = 60
    
16.                                 OKButton.Height = 28
    
17.                                 OKButton.content = "确定"
    
18.                                 OKButton.VerticalAlignment = VerticalAlignment.Bottom
    
19.                                 OKButton.Margin = New Thickness(0, 0, 0, 30)
    
20.                                 AddHandler OKButton.Click, Sub(ss, ee)
    
21.                                         If PassBox.password <>"123" Then
    
22.                                                 C1MessageBox.Show("密码错误！", "提示", OK, C1MessageBoxIcon.Warning)
    
23.                                                 Return
    
24.                                         End If
    
25.                                         '解锁单元格
    
26.                                         ev.GetLock
    
27.                                         ev.ActiveWorksheet.ProtectContents = False
    
28.                                         range("C4").Locked = False
    
29.                                         ev.ActiveWorksheet.ProtectContents = True
    
30.                                         ev.ReleaseLock
    
31.                                         '关闭窗口
    
32.                                         W.Close()
    
33.                                 End Sub
    
34.                                 Childs.Children.Add(OKButton)'向窗口添加按钮控件
    
35.                                 '窗体设置
    
36.                                 W.Style = CType(Application.Current.Resources("C1WindowStyle"), Style)'风格
    
37.                                 W.Height = 200'高
    
38.                                 W.Width = 400'宽
    
39.                                 W.Header = "验证密码"'标题
    
40.                                 W.Content = Childs
    
41.                                 W.ShowMaximizeButton = False'最大化
    
42.                                 W.ShowMinimizeButton = False'最小化
    
43.                                 W.IsResizable = False'调整尺寸
    
44.                                 W.CenterOnScreen()'居中
    
45.                                 W.ShowModal()'显示
    
46.                         End If
    
47.                 End Sub'按钮/标签点击事件

复制代码