[已解决]这个vba代码如何用C#表示？

jiali0208

各位老师好，请教如下：
Sub QXBH()
    If MsgBox("                                 ★★★★★特别注意★★★★★" & Chr(10) & Chr(10) & Chr(10) _
            & "☆☆☆取消保护→点击【是】继续，Sorry！不保护→点击【否】返回 ☆☆☆", vbYesNo, "☆欢迎您使用☆ ") = vbYes Then
    Else
        Exit Sub
    End If
    ActiveSheet.Unprotect Password:="123"
End Sub

以上是EXCEL中的VBA代码，如何转换成C#，恳请各位老师帮忙解决下，谢谢！

最佳答案

月排行榜 / 总排行榜

jackz007

2022-11-10 02:16:08

1. using System;
   
2. using System.Windows.Forms;
   
3. namespace ConsoleApp1
   
4. {
   
5.     class Program
   
6.     {
   
7.         static void Main(string[] args)
   
8.         {
   
9.                 if(MessageBox . Show("                     ★★★★★特别注意★★★★★\n\n\n☆☆☆取消保护→点击【是】继续，Sorry！不保护→点击【否】返回 ☆☆☆" ,
   
10.                 "" , MessageBoxButtons.YesNo) == DialogResult . Yes) MessageBox . Show("您按下了 Yes") ;
    
11.                 else MessageBox . Show(" 您按下了 No")                                                 ;
    
12.         }
    
13.     }
    
14. }

复制代码

跳转到最佳答案楼层

jackz007

        恐怕不只代码翻译这么简单吧，你这个 ActiveSheet 不是把 COM 对象也拖进来了？

jiali0208

jackz007 发表于 2022-11-9 18:38
恐怕不只代码翻译这么简单吧，你这个 ActiveSheet 不是把 COM 对象也拖进来了？

Sub QXBH()
    If MsgBox("                                 ★★★★★特别注意★★★★★" & Chr(10) & Chr(10) & Chr(10) _
            & "☆☆☆取消保护→点击【是】继续，Sorry！不保护→点击【否】返回 ☆☆☆", vbYesNo, "☆欢迎您使用☆ ") = vbYes Then
    Else
        Exit Sub
    End If
End Sub

老师，您好！那这一部分可以吗？

jackz007

1. using System;
   
2. using System.Windows.Forms;
   
3. namespace ConsoleApp1
   
4. {
   
5.     class Program
   
6.     {
   
7.         static void Main(string[] args)
   
8.         {
   
9.                 if(MessageBox . Show("                     ★★★★★特别注意★★★★★\n\n\n☆☆☆取消保护→点击【是】继续，Sorry！不保护→点击【否】返回 ☆☆☆" ,
   
10.                 "" , MessageBoxButtons.YesNo) == DialogResult . Yes) MessageBox . Show("您按下了 Yes") ;
    
11.                 else MessageBox . Show(" 您按下了 No")                                                 ;
    
12.         }
    
13.     }
    
14. }

复制代码

jiali0208

jackz007 发表于 2022-11-10 02:16

非常感谢老师，达到我的要求了，再次感谢！

jiali0208

jackz007 发表于 2022-11-10 02:16

老师您好！打扰了，非常感谢！
For Each ws In Worksheets
ws.Protect Password:="123"
Next ws
这个代码帮忙转换成C#啊！再次感谢！