vba加密

① excel vba代碼加密

你關閉整個工作表後再重新打開試試

② 如何加密VBA

在VBE界面中
工具—VBAproject屬性—保護

然後設好密碼即可。

③ 用excel vba 怎樣實現對本文件的加密與保護

你這個變數用某個單元格的值好了，或者設定某個單元格根據這個變數更新，你寫公式的時候引用這個單元格，然後把這個單元格隱藏，保護起來，應該可以了

應該不行吧，變數只在它定義的范圍里有效

你導出沒有？導出後是.bas，.frm等，然後上硬碟上Search這些文件，要是沒有，就沒辦法了。
還有就是找盤上所有的.xls，然後看看有沒有意外收獲。

你xls時候就沒有的東西，.txt時也別指望。如果有問題的話，Excel自行都修復不了的話……

你用UltraEdit試試吧。如果不是明碼就沒辦法了，你這又不是加密，是種錯誤，應該沒有針對這樣具體錯誤設計的恢復器。

也許能，你丟的是你寫的還是載入宏？安裝只覆蓋載入宏，你寫的東西當然沒什麼可以說的。你試試吧。

④ 怎麼給VBA加密呢

VBA是什麼？
如果是普通的文件或者文件夾，你可以試試文件夾加密超級大師。
加密方法就和加密普通文件夾一樣，先下載，然後在需要加密的文件上點擊滑鼠右鍵，輸入密碼，然後點擊確定就OK了。

⑤ 怎麼給excel vba編輯器加密

不用代碼
VBA中---工具---VBAproject屬性----保護---查看時鎖定工程（選中）---設好密碼---保存退出---再進就會如你所願了

⑥ 怎麼用vba給excel 加密

操作步驟：

1、打開Excel2007啟用宏的Excel文件。

注意事項：

ALT+F11鍵必須同時按下。

選擇對象必須明確是模塊設置密碼還是SHEET表文件整個設置密碼，看代碼輸入是在哪個對象內。

⑦ EXCE如何用VBA代碼加入啟動時對所有工作表加密,並設指定密碼

通過代碼對excel代碼進行加密即可：

1、打開您需要破解保護密碼的Excel文件；

2、依次點擊菜單欄上的工具---宏----錄制新宏，輸入宏名字如:aa；

3、停止錄制(這樣得到一個空宏)；

4、依次點擊菜單欄上的工具---宏----宏,選aa,點編輯按鈕；

5、刪除窗口中的所有字元(只有幾個),替換為下面的內容；

Sub添加密碼()
DimxAsInteger
Forx=1ToSheets.Count
Sheets(x).Protect"123"
Nextx
hisWorkbook.Protect"123"

⑧ VBA代碼部分如何加密解密

在VBA編輯器的"工具」菜單里點「VBAProject屬性"，在「保護」頁中把「查看時縮定工程」的勾選上，然後輸入密碼後確定即可。這樣下次打開查看代碼時就需要輸入密碼了。
但這種加密方式的破解，早就有專用工具了，可以在網路上查找試試。
比較好的方法是，把做好含有VBA代碼的Excel編譯成exe文件，這種工具也可以在網上找到，自己找一下吧。

⑨ Excel vba 宏寫的xla文件被加密，如何簡單快速破解

試試蹭網能不能破解！~蹭網卡有分2種，一代和2代，一代只能破解wep,目前99%是wpa加密，所以根本沒用了，目前加密方式有wep和wpa兩種，目前絕大部分都是wpa加密 ，如果要求高的話那就要多多慎重考慮了。你可以網路搜索阿法洛比特看看，它是一個超強cmcc接收器,城市大部分地區可以用 ,我用過這個覺得還不錯。

⑩ 如何用rc4 加密演算法對excel vba進行加密

我就是專門做破解工作的，沒有說普通的加密很容易破解，你有密碼里加入大小寫，特殊符號以及空格，或者在加上幾個其它國家的語言文子（比如日文）10位以上，這樣就很難破解了，
如果這樣不行的話，你用最新版本的RAR（壓縮包加密）位數多一點，再加上大小寫，特殊符號以及空格或者在加上幾個其它國家的語言文字（比如日文）10位以上，目前基本無法破解,破解軟體對這種遠算只能達到一秒幾次。
namespace CryptoRC4
{
using System;
using System.Text;

public class clsRC4Engine
{
private static long m_nBoxLen = 255;

protected clsRC4Engine()
{

}
private static void GetKeyBytes( string Key, out byte[] m_nBox )
{
long index2 = 0;
m_nBox = new byte[m_nBoxLen];
Encoding ascii = Encoding.ASCII;
Encoding unicode = Encoding.Unicode;
byte[] asciiBytes = Encoding.Convert(unicode,ascii, unicode.GetBytes( Key ));
char[] asciiChars = new char[ascii.GetCharCount(asciiBytes,0,asciiBytes.Length)];

ascii.GetChars(asciiBytes,0,asciiBytes.Length,asciiChars,0);
long KeyLen = Key.Length;
for ( long count = 0; count < m_nBoxLen ; count ++ )
{
m_nBox[count] = (byte)count;
}
for ( long count = 0; count < m_nBoxLen ; count ++ )
{

index2 = (index2 + m_nBox[count] + asciiChars[ count % KeyLen ]) % m_nBoxLen;
byte temp = m_nBox[count];
m_nBox[count] = m_nBox[index2];
m_nBox[index2] = temp;
}
}

private static bool GetEncryptBytes( string sData, byte[] m_nBox,out byte[] EncryptedBytes )
{
EncryptedBytes = null;
bool toRet = true;
try
{
long i=0;
long j=0;
Encoding enc_default = Encoding.Unicode;
byte[] input = enc_default.GetBytes( sData );
EncryptedBytes = new byte[input.Length];
byte[] n_LocBox = new byte[m_nBoxLen];
m_nBox.CopyTo(n_LocBox,0);
long ChipherLen = input.Length + 1;
for ( long offset = 0; offset < input.Length ; offset++ )
{
i = ( i + 1 ) % m_nBoxLen;
j = ( j + n_LocBox[i] ) % m_nBoxLen;
byte temp = n_LocBox[i];
n_LocBox[i] = n_LocBox[j];
n_LocBox[j] = temp;
byte a = input[offset];
byte b = n_LocBox[(n_LocBox[i]+n_LocBox[j])% m_nBoxLen];
EncryptedBytes[offset] = (byte)((int)a^(int)b);
}
}
catch
{
EncryptedBytes = null;

toRet = false;
}
return toRet;
}

public static bool Encrypt( string sData, string Key, out string EncryptedString )
{
EncryptedString = null;

if( sData == null || Key == null ) return false;

byte[] m_nBox;

GetKeyBytes( Key, out m_nBox );

byte[] output;

if( GetEncryptBytes( sData, m_nBox, out output ) )

{

// Convert data to hex-data

EncryptedString = "";

for( int i = 0; i < output.Length; i++ )

EncryptedString += output[i].ToString( "X2" );

return true;

}

else

return false;
}

/// <summary>

/// Decrypt data using specific key

/// </summary>

/// <param name="EncryptedString"></param>

/// <param name="Key"></param>

/// <param name="sData"></param>

/// <returns></returns>

public static bool Decrypt( string EncryptedString, string Key, out string sData )

{

sData = null;

if( EncryptedString == null || Key == null ) return false;

else if( EncryptedString.Length % 2 != 0 ) return false;

byte[] m_nBox;

GetKeyBytes( Key, out m_nBox );

// Convert data from hex-data to string

byte[] bData = new byte[EncryptedString.Length / 2];

for( int i = 0; i < bData.Length; i++ )

bData[i] = Convert.ToByte( EncryptedString.Substring( i * 2, 2 ), 16 );

EncryptedString = Encoding.Unicode.GetString( bData );

byte[] output;

if( GetEncryptBytes( EncryptedString, m_nBox, out output ) )

{

sData = Encoding.Unicode.GetString( output );

return true;

}

else

return false;

}

}

}

調用:

//Encrypt data

string strEncryptedString;

if( clsRC4Engine.Encrypt( strValue, strKey, out strEncryptedString ) )

MessageBox.Show( strEncryptedString );

//Decrypt data

string strDecryptedString;

if( clsRC4Engine.Decrypt( strValue, strKey, out strDecryptedString ) )

MessageBox.Show( strDecryptedString );

另外一種
public static string encrypt_str( string str )
{
string s = "";
int i_Encrypt = ClsSetConst.m_Set_Encrypt;
char[] s_array = str.ToCharArray();
for(int i = 0; i < s_array.Length; i++)
{
int x = ((int)s_array[i]) + i_Encrypt;
s += (char)(x);
}
return s;
}
public void decript_str(string str)
{
string s = "";
int i_Encrypt = ClsSetConst.m_Set_Encrypt;
char[] s_array = str.ToCharArray();
for(int i = 0; i < s_array.Length; i++)
{
int x = ((int)s_array[i]) - i_Encrypt;
s += (char)x;
}
自己看看有沒有輸錯的地方吧